home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / nvnqwk01.zip / POSTONL.BAT < prev    next >
DOS Batch File  |  1993-06-02  |  3KB  |  93 lines
  1. @echo off
  2. REM
  3. REM 1% = QWK Packet name 
  4. REM 2% = QWK Path
  5. REM 3% = REP Path
  6. REM 4% = WORK Path
  7. REM 5% = QWK archive level
  8. REM 6% = REP archive level
  9. echo .
  10. echo ... Executing POSTONL.BAT
  11. echo .
  12. rem
  13. if NOT exist %2%1.QWK goto A10
  14. rem
  15. if NOT %5.==9. goto A1
  16.         if exist %2%1.QW8 copy %2%1.QW8 %2%1.QW9
  17.         if exist %2%1.QW7 copy %2%1.QW7 %2%1.QW8
  18.         if exist %2%1.QW6 copy %2%1.QW6 %2%1.QW7
  19.         if exist %2%1.QW5 copy %2%1.QW5 %2%1.QW6
  20.         if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
  21.         if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
  22.         if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
  23.         if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
  24.         if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
  25.         goto A10
  26. :A1
  27. if NOT %5.==8. goto A2
  28.         if exist %2%1.QW7 copy %2%1.QW7 %2%1.QW8
  29.         if exist %2%1.QW6 copy %2%1.QW6 %2%1.QW7
  30.         if exist %2%1.QW5 copy %2%1.QW5 %2%1.QW6
  31.         if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
  32.         if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
  33.         if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
  34.         if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
  35.         if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
  36.         goto A10
  37. :A2
  38. if NOT %5.==7. goto A3
  39.         if exist %2%1.QW6 copy %2%1.QW6 %2%1.QW7
  40.         if exist %2%1.QW5 copy %2%1.QW5 %2%1.QW6
  41.         if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
  42.         if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
  43.         if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
  44.         if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
  45.         if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
  46.         goto A10
  47. :A3
  48. if NOT %5.==6. goto A4
  49.         if exist %2%1.QW5 copy %2%1.QW5 %2%1.QW6
  50.         if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
  51.         if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
  52.         if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
  53.         if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
  54.         if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
  55.         goto A10
  56. :A4
  57. if NOT %5.==5. goto A5
  58.         if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
  59.         if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
  60.         if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
  61.         if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
  62.         if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
  63.         goto A10
  64. :A5
  65. if NOT %5.==4. goto A6
  66.         if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
  67.         if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
  68.         if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
  69.         if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
  70.         goto A10
  71. :A6
  72. if NOT %5.==3. goto A7
  73.         if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
  74.         if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
  75.         if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
  76.         goto A10
  77. :A7
  78. if NOT %5.==2. goto A8
  79.         if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
  80.         if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
  81.         goto A10
  82. :A8
  83. if NOT %5.==1. goto A10
  84.         if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
  85.         goto A10
  86. :A10
  87.         if exist %2%1.QWK erase %2%1.QWK
  88.         PKZIP %2%1.QWK %4*.*
  89.         if exist %4*.dat erase %4*.dat
  90.         if exist %4*.ndx erase %4*.ndx
  91.         if exist %4news  erase %4news
  92. :DONE
  93.